home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
demo
/
timwin
/
timwin2.exe
/
pak
/
SWITCHD.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-08-05
|
466b
|
40 lines
; switchd -- displays the 8 bitplanes of 'bswitch'
;******************************************************
parms
int windis
endparms
dest p
show p
copy bswitch >a
curs 128 128
frmt 220 220
era p
dump pc 255
and p a
save q
redu q
dest q
bit p1 8
copy q1 r1
bit p1 7
copy q1 r2
bit p1 6
copy q1 s1
bit p1 5
copy q1 s2
bit p1 4
copy q1 r3
bit p1 3
copy q1 r4
bit p1 2
copy q1 s3
bit p1 1
copy q1 s4
era p
era q
stop